home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / PC64E122.ZIP / JOYSTCKS.P00 / joysticks (.txt)
Encoding:
Commodore BASIC  |  1996-11-11  |  382 b   |  21 lines
  1. 9 PRINT
  2. 10 PRINT "USE WHITE ARROWS AND RIGHT CTRL"
  3. 20 PRINT
  4. 30 PRINT "SWAP PORTS WITH ALT+F10"
  5. 40 PRINT
  6. 100 POKE 56333,127
  7. 110 POKE 56322,0
  8. 120 X=PEEK(56321):GOSUB 190
  9. 130 PRINT "    ";
  10. 140 X=PEEK(56320):GOSUB 190
  11. 150 PRINT CHR$(145)
  12. 160 POKE 56322,255
  13. 170 POKE 56333,129
  14. 180 GOTO 100
  15. 190 PRINT CHR$(45-((X AND 1)=0)*34);
  16. 191 PRINT CHR$(45-((X AND 2)=0)*40);
  17. 192 PRINT CHR$(45-((X AND 4)=0)*31);
  18. 193 PRINT CHR$(45-((X AND 8)=0)*37);
  19. 194 PRINT CHR$(45-((X AND 16)=0)*25);
  20. 195 RETURN
  21.